home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / groff / 1.18.1 / font / devps / prologue < prev    next >
Encoding:
Text File  |  2009-03-18  |  2.8 KB  |  165 lines
  1. %!PS-Adobe-3.0 Resource-ProcSet
  2. /setpacking where{
  3. pop
  4. currentpacking
  5. true setpacking
  6. }if
  7. /grops 120 dict dup begin
  8. /SC 32 def
  9. /A/show load def
  10. /B{0 SC 3 -1 roll widthshow}bind def
  11. /C{0 exch ashow}bind def
  12. /D{0 exch 0 SC 5 2 roll awidthshow}bind def
  13. /E{0 rmoveto show}bind def
  14. /F{0 rmoveto 0 SC 3 -1 roll widthshow}bind def
  15. /G{0 rmoveto 0 exch ashow}bind def
  16. /H{0 rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  17. /I{0 exch rmoveto show}bind def
  18. /J{0 exch rmoveto 0 SC 3 -1 roll widthshow}bind def
  19. /K{0 exch rmoveto 0 exch ashow}bind def
  20. /L{0 exch rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  21. /M{rmoveto show}bind def
  22. /N{rmoveto 0 SC 3 -1 roll widthshow}bind def
  23. /O{rmoveto 0 exch ashow}bind def
  24. /P{rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  25. /Q{moveto show}bind def
  26. /R{moveto 0 SC 3 -1 roll widthshow}bind def
  27. /S{moveto 0 exch ashow}bind def
  28. /T{moveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  29. /SF{
  30. findfont exch
  31. [exch dup 0 exch 0 exch neg 0 0]makefont
  32. dup setfont
  33. [exch/setfont cvx]cvx bind def
  34. }bind def
  35. /MF{
  36. findfont
  37. [5 2 roll
  38. 0 3 1 roll
  39. neg 0 0]makefont
  40. dup setfont
  41. [exch/setfont cvx]cvx bind def
  42. }bind def
  43. /level0 0 def
  44. /RES 0 def
  45. /PL 0 def
  46. /LS 0 def
  47. /MANUAL{
  48. statusdict begin/manualfeed true store end
  49. }bind def
  50. /PLG{
  51. gsave newpath clippath pathbbox grestore
  52. exch pop add exch pop
  53. }bind def
  54. /BP{
  55. /level0 save def
  56. 1 setlinecap
  57. 1 setlinejoin
  58. 72 RES div dup scale
  59. LS{
  60. 90 rotate
  61. }{
  62. 0 PL translate
  63. }ifelse
  64. 1 -1 scale
  65. }bind def
  66. /EP{
  67. level0 restore
  68. showpage
  69. }bind def
  70. /DA{
  71. newpath arcn stroke
  72. }bind def
  73. /SN{
  74. transform
  75. .25 sub exch .25 sub exch
  76. round .25 add exch round .25 add exch
  77. itransform
  78. }bind def
  79. /DL{
  80. SN
  81. moveto
  82. SN
  83. lineto stroke
  84. }bind def
  85. /DC{
  86. newpath 0 360 arc closepath
  87. }bind def
  88. /TM matrix def
  89. /DE{
  90. TM currentmatrix pop
  91. translate scale newpath 0 0 .5 0 360 arc closepath
  92. TM setmatrix
  93. }bind def
  94. /RC/rcurveto load def
  95. /RL/rlineto load def
  96. /ST/stroke load def
  97. /MT/moveto load def
  98. /CL/closepath load def
  99. /Fr{
  100. setrgbcolor fill
  101. }bind def
  102. /Fk{
  103. setcmykcolor fill
  104. }bind def
  105. /Fg{
  106. setgray fill
  107. }bind def
  108. /FL/fill load def
  109. /LW/setlinewidth load def
  110. /Cr/setrgbcolor load def
  111. /Ck/setcmykcolor load def
  112. /Cg/setgray load def
  113. /RE{
  114. findfont
  115. dup maxlength 1 index/FontName known not{1 add}if dict begin
  116. {
  117. 1 index/FID ne{def}{pop pop}ifelse
  118. }forall
  119. /Encoding exch def
  120. dup/FontName exch def
  121. currentdict end definefont pop
  122. }bind def
  123. /DEFS 0 def
  124. /EBEGIN{
  125. moveto
  126. DEFS begin
  127. }bind def
  128. /EEND/end load def
  129. /CNT 0 def
  130. /level1 0 def
  131. /PBEGIN{
  132. /level1 save def
  133. translate
  134. div 3 1 roll div exch scale
  135. neg exch neg exch translate
  136. 0 setgray
  137. 0 setlinecap
  138. 1 setlinewidth
  139. 0 setlinejoin
  140. 10 setmiterlimit
  141. []0 setdash
  142. /setstrokeadjust where{
  143. pop
  144. false setstrokeadjust
  145. }if
  146. /setoverprint where{
  147. pop
  148. false setoverprint
  149. }if
  150. newpath
  151. /CNT countdictstack def
  152. userdict begin
  153. /showpage{}def
  154. }bind def
  155. /PEND{
  156. clear
  157. countdictstack CNT sub{end}repeat
  158. level1 restore
  159. }bind def
  160. end def
  161. /setpacking where{
  162. pop
  163. setpacking
  164. }if
  165.